double Trunc(double x){
    long int a;
    a=(long int)x;
    return a;
}